<%
'****************************************************
' Joekoe CMS 1.2 Free      Power by Joekoe.com
' Email: info@asp126.com  asp126@qq.com
' Web: http://www.asp126.com , http://www.ude.com.cn
' Copyright (C) 2004 Asp126.com All Rights Reserved.
'****************************************************

function code_jk_em(strers)
  dim strer
  strer=strers
  if var_null(strer)="" then
    code_jk_em=""
    exit function
  end if
  dim emci
  if instr(strer,"[emb")>0 then
    for emci=1 to 13
      strer=Replace(strer,"[emb"&emci&"]","<image src="&web_dim(6)&"images/icon/emb"&emci&".gif border=0>&nbsp;")
    next
  end if
  if instr(strer,"[emq")>0 then
    for emci=1 to 80
      strer=Replace(strer,"[emq"&emci&"]","<image src="&web_dim(6)&"images/icon/emq"&emci&".gif border=0>&nbsp;")
    next
  end if
  if instr(strer,"[emm")>0 then
    for emci=1 to 67
      strer=Replace(strer,"[emm"&emci&"]","<image src="&web_dim(6)&"images/icon/emm"&emci&".gif border=0>&nbsp;")
    next
  end if
  if instr(strer,"[em")>0 then
    for emci=1 to 16
      strer=Replace(strer,"[em"&emci&"]","<image src="&web_dim(6)&"images/icon/em"&emci&".gif border=0>&nbsp;")
    next
  end if
  code_jk_em=strer
end function

'****************************************************
' Joekoe CMS 1.2 Free      Power by Joekoe.com
' Email: info@asp126.com  asp126@qq.com
' Web: http://www.asp126.com , http://www.ude.com.cn
' Copyright (C) 2004 Asp126.com All Rights Reserved.
'****************************************************
%>